Problem 1

Order Hour of Day of Departments

violin_ggplot = 
  instacart %>%
  mutate(department = forcats::fct_reorder(department, order_hour_of_day, fun = IQR)) %>%
  ggplot(aes(x = department, y = order_hour_of_day)) +
  geom_violin(aes(fill = department), color = "blue", alpha = .5) +
  stat_summary(fun.y = median, geom = "point", color = "blue", size = 2) +
  guides(fill = "none") +
  labs(
    x = "Order Hour of Day",
    y = "Department",
    caption = "Data from Instacart"
  ) +
  theme_bw() +
  coord_flip()

ggplotly(violin_ggplot)

## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`

Days Since Prior Order of Departments

y = list(title = "Days Since Prior Order")
instacart %>%
  plot_ly(y = ~days_since_prior_order, color = ~department, type = "box",
          colors = "Set2") %>% 
    layout(yaxis = y)

Order Rush Hour

instacart %>% 
  plot_ly(x = ~order_hour_of_day, type = "histogram", alpha = .6)